;; supercollider/uspec-math.scm - (c) rohan drape, 2003-2005

;; Evaluate to the list of specifications for all 'UnaryOpUGen' and
;; 'BinaryOpUGen' UGens.

(define (uspec-math)
  (append
   (map/index 
    (lambda (index name)
      (list (list (string-append "_" (symbol->string name)) "UnaryOpUGen")
	    '((input 0.0))
	    '(ugen-rate)
	    index
	    '(0 1 2 3)))
    (uop-names))
   (map/index 
    (lambda (index name)
      (list (list (string-append "_" (symbol->string name)) "BinaryOpUGen")
	    '((left 0.0) (right 0.0))
	    '(ugen-rate)
	    index
	    '(0 1 2 3)))
    (binop-names))))
